﻿Public Class IstatistikAnalikFis
    Inherits Process

    Public Overrides Sub GenericEvent(ByVal e As ProcessEventArgs)
        'Select Case e.EventType
        '    Case EventType.Initialize
		'        Text ="Elden Girilen Analık İstatistik Fişi Girişi"
        '        InitialHelp = "Şubeyi seçin ve istatistik fiş numarasını girin."
        '        AddField("@Sube", "", "", "Şubeyi seçmelisiniz.")
        '        AddField("FisNo", "nl", "", "Fiş numarasını belirtmelisiniz.")
        '        StartBody()
        '        AddField("Tarih[name=dtar;label=Doğum Tarihi]", "nl")
        '        AddField("SicilNo", "nl")
        '        AddField("IstFisTuru")
        '        AddField("IstStatu", "nl")
        '        AddField("Tutar[name=gkazanc;label=Günlük Kazanç]", "nl")
        '        AddField("FisNo[name=gunonce;label=Doğum Öncesi G.İ.S.]", "nl")
        '        AddField("Tutar[name=gebode;label=Gebelik Ödemesi]")
        '        AddField("FisNo[name=gunsonra;label=Doğum Sonrası G.İ.S.]", "nl")
        '        AddField("Tutar[name=dogode;label=Doğum Ödemesi]")
        '        AddField("FisNo[name=csay;label=Canlı Doğum S.]", "nl")
        '        AddField("Tutar[name=isgorode;label=İş Gör. Ödemesi]")
        '        AddField("FisNo[name=ocsay;label=Ölü Doğum/Düşük S.]", "nl")
        '        SetTabs("Sube,FisNo,dtar,SicilNo,IstFisTuru,IstStatu,gkazanc,gebode,dogode,isgorode,gunonce,gunsonra,csay,ocsay")
        '        DisplayForm()
        '    Case EventType.ValidateForm
        '        Dim Rs As Recordset = OpenSQL("select * from istanafis where bolge = :bolge and istno = :istno", Input("Sube"), Input("FisNo"))
        '        If Rs.EOF Then
        '            If Not Confirm("Böyle bir fiş bulunamadı. Yeni kayıt mı yaratmak istiyorsunuz?") Then Focus("Sube") : Exit Sub
        '        Else
        '            SetValues("dtar,SicilNo,IstStatu,IstFisTuru", Rs("dtar"), Rs("sicil"), Rs("statu"), Rs("fisturu"))
        '            SetValues("gkazanc,gunonce,gunsonra", Rs("gkazanc"), Rs("gunonce"), Rs("gunsonra"))
        '            SetValues("gebode,dogode,csay,ocsay,isgorode", Rs("gebode"), Rs("dogode"), Rs("csay"), Rs("ocsay"), Rs("isgorode"))
        '        End If
        '        Help = "Fiş bilgilerini girin."
		'        Buttons.Show("Save.Reset")
        '        e.Result = True
        '    Case EventType.Save
        '        Dim Rs As Recordset = OpenSQL("select * from istanafis where bolge = :bolge and istno = :istno", Input("Sube"), Input("FisNo"))
        '        If Rs.EOF Then Rs.AddNew()
        '        Rs.SetValues("bolge,istno", Input("Sube"), Input("FisNo"))
        '        Rs.SetValues("dtar,sicil,statu,fisturu", Input("dtar"), Input("SicilNo"), Input("IstStatu"), Input("IstFisTuru"))
        '        Rs.SetValues("gkazanc,gunonce,gunsonra", Input("gkazanc"), Input("gunonce"), Input("gunsonra"))
        '        Rs.SetValues("gebode,dogode,csay,ocsay,isgorode", Input("gebode"), Input("dogode"), Input("csay"), Input("ocsay"), Input("isgorode"))
        '        Rs.Save()
        '        Info("Fiş bilgileri kaydedildi.")
        '        Close()
        'End Select
    End Sub

End Class

